5 IFA=0THENA=1:LOAD"ML R[213]",8,1
6 KK$="      PRESS ANY KEY TO CONTINUE         "
9 K$="JKL:ASDFGHIUIOPNM./ZXCVBQWERTYUIOP@*^"
10 POKE 53281,1:POKE53280,1
11 GOTO5000
2001 PRINT"[142][147]     LEFT HAND [205]   RIGHT HAND       "
2002 PRINT"       1 [149]2 3 [159]4 5[144][205]6 [144]7 [149]8 9 [159]0 + - \"
2009 PRINT"       [144] Q [149]W E [159]R T[144][205]Y [144]U [149]I O [159]P ; @ *  ^"
2010 PRINT"        [144] A [149]S D [159]F G[144][205]H [144]J [149]K L [159]: ; ="
2015 PRINT"   [144]SHIFT[146]  Z [149]X C [159]V B[144][205]N [144]M [149], . [159]/ SHIFT"
2017 PRINT"              SPACE BAR     ":RETURN
2018 PRINT"[155]    [213][192][201]3[155]                [149]6[155][213][192][201]"
2019 PRINT"  [149]2[155][213][179] [221]                  [221] [171][201]9[155]"
2020 PRINT"   [221][221][160][171][201]                [213][179] [221][221]"
2021 PRINT"   [221][221] [221][221][159]4[155]              [144]7[155][221][221] [221][221]"
2022 PRINT" [144]1[155][213][179][221] [221][221]                [221][221] [221][171][201][159]10[155]"
2023 PRINT"  [221][221][221] [221][221]                [221][221] [221][221][221]"
2024 PRINT"  [221]    [171][192][201]5          6[155][213][192][179]    [221]"
2025 PRINT"  [221] L   [213][203]            [202][201]  R  [221]"
2026 PRINT"  [221]     [221]              [221]     [221]":RETURN
2027 PRINT"           [159]T[144]Y[159]PE [146][159]R[149]I[159]TE"
2028 PRINT"        [159]B[144]Y[159]: [146][159]T[144]HO[144]MA[149]S [146][144]U[149]SI[159]T[144]ALO"
2030 PRINT"[151]   HIT ANY KEY TO GO TO PROGRAM"
2039 POKE198,0
2040 GETG$:IFG$=""THEN2040
2050 PRINT"[147]LOAD";CHR$(34)"[TR]LOAD ME"CHR$(34);",8"
2056 SYS828:NEW
5000 GOSUB2001:PRINT"LETS PRACTICE THE FINGERING":PRINT"OF THE HOME KEYS[144]"
5001 PRINT"PLACE LITTLE FINGER OF THE LEFT HAND    ON THE ";CHR$(34);"A";CHR$(34);" KEY."
5002 PRINT"[149]PUT THE LEFT RING FINGER"
5003 PRINT"ON THE ";CHR$(34);"S";CHR$(34);" KEY."
5012 PRINT"PUT THE LEFT MIDDLE FINGER
5013 [153]"ON THE ";[199](34);"D";[199](34);" KEY."
5014 [153]"OPENPUT THE LEFT INDEX FINGER
5015 PRINT"ON THE ";CHR$(34);"F";CHR$(34);" KEY."
5025 PRINT"PUT YOUR LEFT THUMB ON THE ";CHR$(34);"SPACE BAR";CHR$(34);"."
5030 PRINTKK$:GOSUB9000
5035 GOSUB2001
5041 PRINT"[159]PUT THE RIGHT LITTLE FINGER"
5043 PRINT"ON THE ";CHR$(34);":";CHR$(34);" KEY."
5044 PRINT"PUT THE RIGHT RING FINGER"
5045 PRINT"ON THE ";CHR$(34);"L";CHR$(34);" KEY."
5046 PRINT"[149]PUT THE RIGHT MIDDLE FINGER"
5047 PRINT"ON THE ";CHR$(34);"K";CHR$(34);" KEY."
5048 PRINT"[144]PUT THE RIGHT INDEX FINGER"
5049 PRINT"ON THE ";CHR$(34);"J";CHR$(34);" KEY."
5050 PRINT"PUT YOUR RIGHT THUMB ON THE ";CHR$(34);"SPACE BAR";CHR$(34);"."
5054 PRINTKK$:GOSUB9000
5055 PRINT"TIME TO ACTUALLY PRESS KEYS..."
5060 FORX=1TOLEN(K$)
5061 GOSUB2001
5062 SS$=MID$(K$,X,1):PRINT"USING THE CHART PRESS THE ";CHR$(34);SS$;CHR$(34);" KEY."
5063 GETGT$:POKE204,ASC(GT$+CHR$(0))
5064 IFGT$=""THEN5063
5065 IFGT$=SS$THENPRINT"VERY GOOD!!":GOTO6000
5066 GOSUB2001:GOSUB2018:PRINT"YOU PRESSED THE ";CHR$(34);GT$;CHR$(34);" KEY"
5067 WG=WG+1
5068 PRINT"IT SHOULD HAVE BEEN THE ";CHR$(34);SS$;CHR$(34);" KEY."
5070 PRINT"TO TRY IT AGAIN...":PRINTKK$:GOSUB9000:GOTO5061
6000 NEXT
7000 IF WG=0 THEN 7012
7001 PRINT"YOU HAD ";WG;" INCORRECT!"
7002 PRINT" DO YOU WANT TO TRY IT AGAIN (Y/N)"
7003 GETAG$:IFAG$=""THEN7003
7005 IFAG$="Y"THENRUN
7010 GOTO2027
9000 GETFF$:IFFF$=""THEN9000
9001 RETURN